I 

► TSCASH — TSX-Plus Data Caching MACRO V05. 05 Tuesday 17-Jan-S9 14:12 
I 



► 



f 



I 
t 
f 
I 

i 
i 
« 

( 
i 

i 
i 

i 



Table of contents 



CSHRD — Read requeBt 
READIO — Start read I/O operation 
' , 5-1 REDCPL — Read I/O completion routinp 



v3 — 




4- 




5- 




6- 




7- 




8- 




9- 




10- 




11- 




12- 




13- 




14- 




15- 




16- 




17- 




IS- 




19- 




20- 




21- 




22- 




23- 




24- 




25- 


1 


26- 


■t 


27- 


1 



I 

f 
I 
I 



CSHWRT — Write request 

WRTCPL — Write operation completion routine 

, 8-1 CSHUP — Update cache with fresh data 

' o- ■< RDMOVE — Move data from cache to user's buffer ^ 

WTMOVE — Move data front user's buffer to cache 

I --. - CSHBLD — Build empty cache descriptors for new entries 

' 12- 1 CSHCLN — Remove all entries for a specified device ^ 

CSHLOC — Determine if entry exists in cache table 

g j.-r JL CSHUSE — Make tatihe entry be most-recently-used 

' 15- 1 CSHADD — Add cache table entry to appropriate lists ^ 

C5HREM — Remove cache block entry from all lists 

* 1/- 1 CSHGET — Try to get a free cache block entry 

* ^°- ^ CSHFRE — Return a cache block entry to the free list ^ 

CSHTST -- Determine if device is mounted 

g ^w * CCBGET — Get a free cache control block 

* 21- 1 CCBFRE — Free a cache control block i 

CSHFIN — Completion of a mapped I/O operation 

CSHOTG — Get a free l/U queue element 

CSHCNT — Keep track of cache usage statistics ^ 

CSHZRO — Reset all statistic counters to zero 
CiiHijCH •" aee iv SystEiii jub schtduieT- shuuid be CistiltU 

CSHINl -- Data caching system initialization ^ 



t 
I 
I 

i 
i 
i 
I 
I 
I 
« 



i 

TSCASH — TSX~Plus Data Caching MACRO V05. 05 Tuesday 17-Jan-S9 14:12 Page 1 

^ 2 , ENABL LC 

3 . DSABL GBL 

4 000000 . CSECT TSCASH 

< 5 

6 i TSCASH is the TSX~Plus module that contains the routines 

,. 7 i used to perform data caching. 

< B ; 

/ » ^-z Wf* y r .l g 11 1, \ u .' i ?D^J i 7DiJ. 

10 i S«{H Computer Systems.. Inc. 

'11 ' Nashville. Tennessee USA 

12 ' All rights reserved. 
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14 ; Mi 

15 ; 

16 . MCALL . ADDR 
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IS J Olubal definitions 

19 ; 
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45 ; 

46 . MACRO DISABL 

47 BIS #340, (»#P3W 

48 PNDM DISABI 
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22 > Gioucii references 

t 23 ; 

24 . GLOBL CC*CBP, G. FUNC>Q. COMPAQ. CSW,CC«WCT. DVRHC 

^"^ . GLOBL CCHWFL, CB«DVU. CC*DVU> CCfUBO, CC«UBP, CC*BLK 

• 26 . GLOBL Q. UNIT, CA*DVU, C. CSW, CA*WCT, CA*UFL, CA*UBL t 

27 . GLOBL CSfEOF.. CA*HFL> Q, WCNT> ENSYS, CSHDVN, KP AR 5 

28 . GLOBL KPAR6, Q. DEVX, CA*BLK, CA*HBL, CSHMRU, CA*HSH 

1 27 .GLOBL VPAR6, VPAR5, CC*DQE, SYQIO, Q. JOB, CD**SZ C 

30 . GLOBL CSHLRU. CSHDEV, CSHBFP, CS*ERR, CCBHD. S*QCCB 

31 . GLOBL QNSPNX, CC*LNK, Q. BLKN, Q, BUFF, Q. PAR 

< 32 .GLOBL UREGD, lOCMPL, lOQSIZ, Q. CHAN, FP*MOV, USWPCH I 

33 . GLOBL INTPRI, PSW, CSHFHD, VCSHNB, JOBCCB, NPCCB 

34 . GLOBL Q. FLAG, QF*CIO, GF*SCR, GETQ, DOSCHD, SCHED 

• 35 .GLOBL CASTBR,CASCBR,CASTBW, CASCUP,CORUSR I 

36 . GLOBL CASTRO, CASTWD, DVFLAG, DX*NCA, *NOABT, LSW7 

37 i 

• 38 ; Macro to map to a data caching table € 

39 ; 

40 . MACRO MAPTO TABI, E 

^ 41 MOV @#TABLE, @#KPAR5 < 

42 ENDM MAPTO 

43 i 

^ 44 ; Macro to disable device interrupts t 
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49 i 

50 ; Macro to enable interrupts * 

51 ; 

k 52 , MACRO ENABL 

I * 53 eiC @#INTPRI> @#FSW * 

> 54 , ENDM ENABL 

' 55 i 

I ' 56 i Macro to call a system overlay ' 

57 ; 



i 



i 



f 
c 

i 
( 
( 
I 

i 

t 
I 
I 

I 

i 
t 
i 



TSCASH — TSX-Plus Data Caching MACRO V05. 05 Tuesday 17~Jan-89 14:12 Page 1-1 



59 

60 

61 

62 

63 

64 

65 

66 

67 

68 

69 

70 
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7V 
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012700 



003622 
000020 
00 1 530 
003346 



000000 
000000 



. nft'wKU U'w^LL. fc.N!/M.!!J 

IF B. ENTADD 

.ERROR i OCALL without entry address 

ENDC 

CALL ^#OVRHC 

, WORD ENTADD 

. ENDM OCALL 



> Overlay segment ID word 

> 

TSCASH: . RAD50 /CSH/ 

} Table of offsets to entry points in this module 



. WORD 
. WORD 
. WORD 
. WORD 

Data B'reB'i 



lOQIN: . WORD 
lOOOUT: . WORD 



CSH INI -TSCASH 
CSHIO-TSCASH 
CSHCLN-TSCASH 
CSHFIN-TSCASH 









i C u I T li' i'i b c 3 c h s control u ^ o c k 

; Current original I/O queue element 

; Current secondary I/O queue element 



f 

c 

i 
i 
t 

€ 

I 

i 
€ 
i 

i 

i 



t, 
I 



f 
i 
< 
f 
t 
( 
I 
f 
t 
I 
i 
i 
( 
i 
i 



I « 



TSCASH - 
CSHIO 



~ TSX-Plus Data 
Check if data 



Caching MACRO V05. 05 Tuesday 17-Jan-S9 14:12 Page 2 
is in cache 
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3 

4 

5 

6 

7 

S 

9 
10 
11 
12 
13 

14 000020 

15 000022 

16 000024 
17 

18 
19 
20 

21 000030 

22 000036 

23 000040 

24 000044 

25 000046 

26 000054 
27 

28 
29 

30 000056 

31 000062 
32 

33 
34 

35 000064 

36 000070 
37 

38 
39 
40 

41 000072 

42 000076 
43 

44 
45 
46 

47 000100 

48 000104 

49 000110 

50 000112 

51 000116 

52 000120 

53 000124 
54 

55 
56 
57 



010346 
010546 
013746 



0000000 



CSHIO is called before each I/O operation is initiated to determine 
if the data being read is in the cache or^ in the case of a write, 
whether the data cache needs to be updated. 

Inputs: 
Rl = Address of 1/0 queue element. 

O M +: ri 1^1 +* *= • 

C~flag cleared ==> Queue request normally. 

C~flag set ==> Don't queue I/O request. We will do completion. 

CSHIO; MOV R3, -<SP) 
MOV R5, -<SP.^ 
MOV e#KPAR5, ~<SP) ; Save kernel PAR 5 mapping 



132761 
001053 
105761 

001450 
12612/ 
001444 



004767 
103441 



005737 
001436 



0000000 OOOOOOG 
OOOOOOG 

OOOOOOt; OOOOOOQ 



002636 



OOOOOOG 



105761 
001413 



OOOOOOG 



116100 
042700 
000300 
116103 
050003 
004767 
000420 



OOOOOOG 
177770 

OOOOOOG 

001404 



Ignore this I/O 



operation if it is being performed by the system 
or if this is a secondary I/O operation started by the caching system. 



BITB #QF*CIO. 0. FLAG<R1 ) ils this a secondary op started by us? 

BNE 9* i Br i f yes 

TSTB Q. J0B<R1.> ils this a system I/O operationT' 

BHO 9$ iDuri't do caching for system 1/0 operations 

CMPB Q. CHAN<RI .>. #USWPCH ;Is this user channel for swap file? 

BEG 9* i Br if yes — Don't cache I/O to swap file 

Determine if the device being accessed is mounted by anyone 



CALL 
BCS 



CSHTST 
9* 



ils this device mounted? 
i Br if not 



Determine if caching has been disabled 



TST 
BEQ 



@#VCSHNB 
9* 



; Are there any active cache buffers? 
i Br if not 



This device is mounted and hence should be cached. 
Determine if this is a . SPFUN operation. 



TSTB Q. FUNC<R1) 
BEQ 3* 



ils this a .SPFUN operation? 
i Br if not 



. SPr-UN being done to cached device. 

Clean out ail cache entries for this device. 



MDVB 


Q. UNIT<R1). RO 


BIC 


#-'-C7, RO 


SWAB 


RO 


MOVB 


Q, DEVX<R1.>.R3 


BIS 


RO, R3 


CALL 


CSHCLN 


BR 


9* 



Get device unit number 
Clear all but unit number 
Put in high-order byte 
Get device index number 
Combine unit # with device # 
Clean out the cache 
Ignore this I/O operation 



This is not a . SPFUN. 

Ignore the operation of the word count is zero. 



f 
I 
I 



i 



TSCASH 
CSHIO 



TSX-Plus Data 
Check if data 



Caching MACRO V05. 05 Tuesday 17-Jan-a9 14: .t2 Page 2-1 
is in cache 



58 000126 

59 000132 
60 

61 

62 

63 000134 

64 

65 

66 

67 000140 

68 000144 
69 

70 
71 

72 000146 

73 000152 

74 000154 
75 

76 
77 

78 000156 

79 000162 

80 000164 
81 

82 
83 

85 
86 
87 

88 000170 

89 000174 

90 000176 

91 000200 



005761 OOOOOOU 
00 1 4 1 5 



004767 002656 



002404 



004767 
000261 
000405 



004767 
000261 
000401 



000241 



012637 
012605 
012603 
000207 



\./xy\y Wi_jv/ 



000306 



0000000 



J*: 



TST Q. WCNT(Ri ) 
BEG 9* 



;Is •XQTd count zero.' 

> 13r if yes — Don't do caching 



Get 3 cache control block. 

CALL CCBGET ; Get a cache control block 

Determine if it is a .READ or .WRITE operation 



.: Read/Wri te 

i Br if write operation 



TST 


Q. WCNT(Rl) 


BLT 


1* 


i This is a 


read request 


CALL 


CSHRD 


SEC 




BR 


10* 



; See if lue can find data in cache 
iSignal that caching is being done 



j Start the write operation 

.: Signal that caching is being done 



ThiB is a write request 
1*: CALL CSHWRT 
np io* 

Wt' do (lO L waot to do cathiiiy for thii operation 
9*; CLC .; Signal normal request queueing 

F i T J 3 B h e d 

10*: MOV (SP)+, @#KPAR5 ; Restore kernel PAR 5 mapping 
MOV (SP)+, R5 
MOV (SP)+, R3 
RETURN 
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— TSX-Plus Data 


Cach ing 


CSHRD ■ 
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— Read 


request 
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000202 


010146 




10 


000204 


010346 




11 
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13 








14 


000206 


012700 


000001 


15 


000212 


004167 


003262 


16 


000216 


OOOOOOG 




17 


000220 


016500 


OOOOOOG 


18 


000224 


062700 


000377 


19 


000230 


000300 




20 


000232 


042700 


177400 


21 


000236 


004167 


003236 


22 


000242 


OOOOOOG 
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000244 


004767 


001354 


27 
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103442 
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016503 


OOOOOOG 


33 


000256 


020327 


000400 


34 
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101402 




35 


000264 


012703 


000400 


36 


000270 
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000276 


020311 
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000300 


101026 




39 








40 








41 
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004767 


000442 
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004767 


001460 
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012700 


000001 


52 


000316 


004167 


003156 


53 


000322 


OOOOOOG 
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A read request is being performed. 

See if we can get ail or some of the requested data from the cache. 

Inputs: 
F?5 = Pointer to cache control block for this operation. 

MOV R3, -<SP) 

i Count total number of blocks read from mounted devices 

Count 1 more read operation 
Update statistics counter 
Total number of read operations 
Get total iiiord count 
Round up to block size 
Convert to # blocks 
Clear all but loin byte 
Update statistics counter 
Total number of blocks rea6 



MOV 


#li RO 


JSR 


R 1 , CSHCN 1 


. WORD 


CASTRO 


MOV 


CC$WCT(RD)>RO 


ADD 


#255. , RO 


SWAB 


RO 


liJlC 


#'^C377, RO 


JSR 


Rl.CSHCNT 


. WORD 


CASTQR 



BeijiFi loop to determine uiftich blocks ars in the cache. 



lli. 



CALL 
BCS 



CSHLOC 
2* 



;Determine if next block is in the cache 
i Br if not 



3$: 



MOV 


CC«WCT<R5), R3 


CMP 


R3, #256. 


BLOS 


3* 


MOV 


#256. , R3 


MAP TO 


CA«WCT 


CMP 


R3, (Rl> 


BHI 


2* 



There is an entry for this block in the cache. 

See if we have at least the requested number of words. 

Get the remaining word count 

Is there more than a block left to read? 

Br if not 

Say we are reading a block this time 

Access cache table word count entry 

Are the required number of words in cache? 

Br if not 

Transfer data from cache buffer to user's buffer 

CALL RDMOVE ; Move data from cache to user's buffer 

Move this cache block to the head of the LRU chain 
<That is, make it the most recently used) 

CALL CSHUSE iMake this block be the most recently used 

Count another block that was read from the cache 

i Add 1 to counter 

i Update statistics counter 

.: Number of blocks read from cache 

See if the job scheduler needs to be called to give someone else a 
chance to run 



MOV 


#1, RO 


JSR 


Rl.CSHCNT 


. WORD 


CASCBR 
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62 
63 
64 
65 
66 
67 
68 
69 
70 
71 
72 
73 
74 
75 
76 
77 
78 
79 
80 
81 



000330 005265 0000000 

000334 062765 000010 OOOOOOG 

000342 160365 0000000 

000346 001336 



000350 004767 002772 
000354 000402 



000356 004767 000006 



000362 012603 
000364 012601 
000366 00020/ 



CALL C3HSCH -See if jofa scneduler needs to be called 

Advance block number, buffer address^ and reduce remaining word count. 

INC CC«BLK<Rb) ; Advance block number 

ADD #8. , CC$UBP<R5) ; Advance buffer address 

SUB R3j CC*WCT<R5) j Reduce remaining word count 

BNE 1$ i Loop if more blacks need to be read 

vve ujere able uo sacisi^u t^nwire reau rei^uesu irom i/ne cache. 



I 
I 



CALL CSHFIN 
BH 9$ 



i Finished I/O operation 



; Not all of the data in in the cache. 
; Read remainder in from I/O device. 



2f: CALL READ ID 

i Fin i shed 

> 

v*^- m}''/ <SP )+:. H'-f 

MOV <SP1+,R1 

RE7URN 



> Start read from I/O device 
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000370 010146 



000372 004767 000756 



000376 004767 002766 



000410 010061 OOOOOOG 



000414 004737 OOOOOOG 



000420 012601 
000422 000207 






? READIO is called to start an I/O operation to read data that is not 
i avai lahle in the cache. 

i 

> Inputs: 

i R5 ~ Pointer to cache contiu^l block. 

i 

t-\ \.7 ;> \» .K \e l> , 

; Data is read into user'E buffer and then is moved into cache. 

RtADIO: MOV R1,-(SP) 

) Build cache block descriptors for all the blocks that are going 

: to be read The descriptorB indicate that the cache buffers are empty. 

CALL CSHBLD > Build empty cache block descriptors 

Get and initialize a free 1/0 queue element 

CALL CSHGTQ i Get a free I/O queue element 

Set address of completion routine 

, AD.OR ttREDCPL.. KO .I'Jet addretiE of read completion routine (PIC) 
MOV RO. Q. C0MP<R1 ) i Set address of read completion routine 

Initiate the read operation 

CALL ®#SYQIO j Queue the I/O operation 

Finished 

When the read finishes the REDCPL routine will be called. 

MOV <SP)+, Rl 
RETURN 
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. OD ! ! !_ Mc.i.'cr'L. ~~ f<t?ao x/u c oinp i et- j uii ruUcjiiw 

REDCPL 15 called as a completion routine when a read operation completes. 

I n p u 1 5 : 
Rl = Address of cache control block. 



000424 010546 
000426 010105 



REDCPL: MOV 
MOV 



R5, -<SP) 
Rl, R5 



; Carry control block address in R5 



000430 016500 OOOOOOG 

000434 016000 OOOOOOG 

000440 032760 OOOOOOC OOOOOOG 

000446 001002 



000450 004767 000164 



000454 004767 002666 



000460 005067 177332 
000464 012605 
000466 000207 



If end of file or hardware error luas reported by handler, 
terminate the operation. 

MOV CC*0QE(R5.>.' RO i Get address of original I/O queue element 

MOV Q. CSW<R0)< RO ; Get address of channel block 

BIT #<CS*EOF!CS*ERR>/ C. CSW(RO) ; End of file or error? 

BNE 8* i Br if yes 

Move each block of data that was read from user's buffer to cache buffer 



1*: CALL CSHUP 

; FiniEhed with operation 

i 

i Finished 

CLR lOQOUT 
MOV (SP)+, R5 
RETURN 



; Move data from user's buffer to cache 



, Finished with entire operation 



Say we have finished with secondary queue 
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010146 



004767 
005461 



002672 
OOOOOOG 



010061 0000000 



TSCASH — TSX-Plus Data Caching 
CSHWRT — Write request 



3 
4 
5 
6 
7 
8 
9 

10 000470 

11 

12 

13 

14 000472 

15 000476 

16 000502 

17 000510 
18 

19 
20 

21 000514 

22 000522 
23 

24 
25 

26 000526 

27 000532 

28 000536 

29 000540 

30 000544 

31 000550 

32 000552 

33 000556 

34 000562 
35 

36 

37 

38 

39 

40 

41 000564 

42 

43 

44 

45 000570 

46 

47 

48 

49 000574 

50 000600 
51 

52 

53 

54 

55 000602 

56 

57 
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Process a write request to a cached device. 

This involves moving the data being written from the user's buffer 

into the cache buffers. 

Inputs: 
R5 = Pointer to cache control block. 

CSHWRT; MOV R1,-<SP) 

i 

i Get and setup a free 1/U queue element 



11276S 
004737 



012700 

004167 

OOOOOOG 

016500 

062700 

000300 

042700 

004167 

OOOOOOG 



000200 

OOOOOOG 



000001 
002742 

OOOOOOG 
000377 

177400 
002716 



OOOOOOG 



004767 000564 



004767 000044 



106365 OOOOOOG 
103402 



004767 002540 



CALL 
NEG 
. ADDR 

MOV 



CSHOTQ 
Q. WCNT<R1> 
#WRTCPL, RO 
RO, Q. COMP(Rl) 



Get a free I/O queue element 
Negative word count ==> write operation 
Get address of I/O completion routine 
Set address of I/O completion routine 



Start the I/O operation 



MOVE #200, CC*WFL(R5) ; Set flag saying I/O in progress 
CALL @#SYQIO > Initiabe the I/O operation 

Count the total nuiiiber of biucJss that are being written 

Count 1 more write operation 
Update statistics counter 
Count 1 more write operation 
Get total word count 
Round up to block size 
Convert to # blocks 
Clear all but low byte 
Update statistics counter 
Total number of blocks written 

Now, while the device I/O transfer is taking place* move the data 
being written from the user's buffer into the cache buffers. 

Build empty cache table entries for all blocks being written. 

CALL CSHBLD i Build empty cache table descriptors 

Move the data from the user's buffer into the cache 

CALL C3HUP i Movf? data into cache 

See if I/O write operation finished before our data move 



MOV 


#1, RO 


JSR 


R1,CSHCNT 


. WORD 


CASTWD 


MOV 


CC*WCT(R5),R0 


ADD 


#255. , RO 


SWAB 


RO 


BIC 


#••■^0377, RO 


JSR 


Rl,CSHCm 


, WORD 


CASTBW 



ASLQ CC*WF~L(Rb) 
BCB 9S 



;Ha5 the I/O operation already finished? 
; Br if not — Wait for it to finish 



I/O operation has already finished. That means the overall operation 
i s n o uj finished. 



CALL 
Finish e d 



CSHFIN 



i Say operation is complete 



I 
( 
I 



€ 
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CSHWRT — Write request 

5S .- 

59 000606 012601 9$: MOv (3P)+, Rl 

60 000610 000207 RETURN 



( 
< 

i 
I 

I 
t 

i 
i 
i 

i 
i 
I 
I 
( 



TSCASH 
WRTCPL 



TSX-Plus Data Caching MACRO V05. 05 Tuesday 17-Jan-S9 14:12 Pag& 7 
Write operation completion routine 



2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 

22 

23 

24 

25 



000612 010546 
000614 010105 



000616 106365 OOOOOOG 
000622 103402 



000624 004767 002516 



000630 00 5067 1 77 1 62 
000634 012605 
000636 00020/ 






Completion routine called when the write I/O operation is finished. 

Inputs: 
Rl - Pointer to cache control block. 



WRTCPL: MOV 
MOV 



R5. -<SP) 
Rl, R5 



i Carr^i control block pointer in R5 
See if data transfer to cache has already finished 



ASLB CC$WFL(R5) 
BCS 9* 



iHas data transfer to cache already finished? 
i Br if not 



Data transfer to cache beat us. 

The overall operation is noui complete. 



9*: 



CALL 


CSHFIN 


F i n i 5 h e d 




CLR 


lOQOUT 


MOV 


(SP;+, R5 


RETURN 





^Finished operation 



Say finished tuith seconary I/O queue element 



i 

i 



i 

i 
f 

I 

C 
i 

f 
i 
f 
4 
( 
C 
i 



i 
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CSHUP — Update cache uiith fresh data 



1 
2 
3 

5 
6 
7 
S 
9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
P4 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 



000640 010146 
000642 010246 



000644 016502 OOOOOOG 

000650 020227 000400 

000654 101402 

000656 012702 000400 



000662 004767 000736 
000666 103415 



000670 004/67 000256 



000674 

000702 010211 



000704 012700 000001 
000710 004167 002564 
000714 OOOOOOG 



CSHUP is called to move data from the user's buffer into the cache. 



T n n 1 J +: g ; 

R5 = Pointer to cache control block. 



CSHUP: 



MOV 
MOV 



R 1 , - < SP ) 
R2, -(SP) 



Determine how manu words are beina moved this time 



5*: 



MOV 
CMP 
BLOS 
MOV 



CC*WCT<R5)> K2 i Get remaining word count 
R2, #256. iMore than a block left? 



3* 

#256. , R2 



; Br 



not 



; Move a block this time 
See if th!?re is a cache table entry for the next block 



3*: 



CALL 
BCS 



CSHLOC 
1* 



; Is there a cache entry for the block? 

; Br if not — Don't move the data into cache 



Move a block of data from user's buffer to cache buffer 

CALL wTMOVt , Move data from user's buffer to cache buffer 

Set word count for block in cache control table 



MAP TO 
MOV 



CA*WCT 
R2, (Rl) 



;Map to word count table 

.; Set word count for this block 



MOV 


#1,R0 


JSR 


Rl. CSHCN7 


. WORD 


CASCUP 



000716 004767 002664 



000722 005265 OOOOOOG 

000726 062765 000010 OOOOOOG 

000734 160265 OOOOOOG 

000740 001341 



000742 012602 
000744 012601 
000746 000207 



1* 



Count number of blocks of data that are moved into cache 

j One more block moved into cache 

i Update statistics counter 

; Number of blocks moved into cache 

See if the job scheduler needs to be called to give someone else a 

chance to run 

CALL CSHSCH ; See if job scheduler needs to be called 

Advance block number* buffer address, and decrement remaining word count. 
CC*BLK(R5) 



INC 
ADD 
SUB 

BNE 

Finished 



MOV 
MOV 
RETURN 



; Increment block number 
#8. , CC*UBP (R5) iAdvance buffer address 
R2, CC*WCT<Rr>) i Reduce remaining word count 
5* .; Loop if more left to move 



< SP ) +> R2 
<SP)+, Rl 



f 
I 
f 



€ 
I 

I 
t 
€ 

I 
i 






f 
I 

r 
f 
i 
I 
« 
I 
C 
I 

c 
i 
t 
I 
I 



TSCASH — TSX-Plus Data Caching MACRO V05. 05 Tuesday 
RDMOVE — Move data from cache to user's buffer 



17-Jan-e9 14; 12 Pacje 9 



3 
4 
5 
6 
7 
8 
9 000750 

10 000752 

11 000754 

12 000756 
13 

14 
15 
16 

17 000760 

18 000766 

19 000772 
20 

21 
22 
23 
24 

25 000774 

26 001002 

27 001010 

28 001014 

29 001020 
30 

31 
32 

33 001024 

34 001030 

35 001034 

36 001036 
37 

38 
39 

40 001042 

41 001044 

42 001050 

43 001052 

44 001054 

45 001056 

46 001060 

47 001062 

48 001064 

49 001066 

50 001070 

51 001072 

52 001074 

53 001076 

54 001100 

55 001102 

56 001104 

57 001106 



. ^!D I I u, rtJL^rjuvfc. — — 1'ii.iv*^ u*3&^ Tt'uiu LaL,n^ uo u5>^f' ^ Dut"reT' 

RDMOVE is called to move up to a block of data from a cache buffer 
to the user's buffer. 

Inputs: 
R5 = Pointer to cache control block. 



010246 
010446 
010546 
010502 



RDMOVE: MOV 
MOV 
MOV 
MOV 



R2, -<SP) 
R4. ~(SP) 
R5, -(SP) 
R5, R2 



Carry control block pointer in R2 



Enter system state so we can use PARS and PAR6 to map to the cache 
and user buffers. 



004737 0000000 
OOOOOOG 



. ADDR #9*, RO 
CALL e#ENSYS 
. WORD FP*MOV 



i Go to 9* on exit from system state 

i Enter system state 

; Set fork priority for ENSYS 



We are now running in system state on the interrupt stack. 
Kernel PARS and PAH6 are free. 
Setup buffer pointers. 



016237 
016237 
012704 
066204 
012705 



016200 
020027 
101402 
012700 



010002 
072227 
001421 
012524 
012524 
012524 
012524 
012524 
012524 
012524 
012524 
012524 
012524 
012524 
012524 
012524 
012524 
012524 



ooooooy 

OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 



OOOOOOG 
000400 

000400 



OOOOOOG 
OOOOOOG 



MOV 
MOV 
MOV 
ADD 
MOV 



CC*UBP<R2.). «?#KPAR5 ; Set PAR base for user's buffer 
CC*CBP<R2),©#KPAR6 i Set PAR base for cache buffer 



#VPAR5, R4 
CC*U130<R2),R4 
#VPAR6, R5 



Get number of words to move 

MOV CC*WCT<R2)i RO 

CMP RO, #256. 

BLOS 5« 

MOV #256. , RO 



Get virtual address base for user's buffer 
Add offset within 64-byte block region 
Get virtual address base for cache buffer 



i Get total remaining word count 

; More than a block wanted? 

; Br if not 

j Move 1 block this time 



Move as many blocks of 16 words as possible 



5*: 



177774 



7$: 



MOV 
ASH 
BEQ 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 



RO, R2 

#-4, R2 

6* 

<R5)+, 

<R5)+, 

<R5>+, 

(R5)+, 

(R5)+, 

(R5)+. 

(R5)+, 

(R5)+, 

(R5)+, 

(R5)+, 

i:R5)+> 

(R5)+, 

(R5)+, 

(R5>+.. 

(R5)+, 



( R4 ) + 
<R4) + 

< R4 ) + 
<R4) + 
<R4> f- 
(R4) + 

< R4 ) + 
(R4.1 + 
<R4) + 
<R4) + 

< R4 ) + 
<R4)-+- 

< R4 ) + 
(R4) + 
<R4) + 



Get total number of words to move 
Compute # blocks of 16 words to move 
Br if less than 16 words need to be moved 
Move 1 

2 

3 

4 

5 

6 

7 



Move 
Move 
Move 
Move 
Movp 
Move 
Move 8 
Move 9 
Move 10 
Move 1 1 
Move 12 
Move 13 
Move 14 
Move 15 
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f 
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TSCASH - 


— TSX-P 


lus Data Cachin 


RDMOVE - 


— Move 


data from cache 


58 


001110 


012524 


59 


001112 


077221 


60 






61 






62 






63 


001114 


042700 177760 


64 


001120 


001407 


65 


001122 


006200 


66 


001124 


001403 


67 


001126 


012524 


68 


001130 


012524 


69 


001132 


077003 


70 


001134 


103001 


71 


001136 


011514 


72 






73 






74 






75 






76 


001140 


000207 


77 






78 






79 






80 


001142 


012605 


81 


001144 


012604 


82 


001146 


012602 


83 


001150 


000207 



I MACRO V05. 05 Tuesday 17-Jan-89 14: 12 
to user's buffer 

nOv (R5)+, <R4)+ 

SOB R2, 7* 



Page 9-1 



i Move 16 

; Loop if more blocks of 16 left to move 



J IMouj move any residual ijioid^ (less than 16) 



6*; 



>*: 



jip. 



BIC 


#"C17, RO 


BEQ 


4* 


ASR 


RO 


BEQ 


3* 


MOV 


(R5)+> (R4) ! 


MOV 


<R5)+, <R4)4 


SOB 


RO, 2* 


BCC 


4* 


MOV 


(R5). <R4) 



Any words left to move? 

Br if not 

Set number of doubleuiords to move 

Br if less than 2 words to move 

Move a ujoru 

Move second word of pair 

Loop if more doub leuiords left to move 

Br if don't have odd word left to move 

Move last word 



Finished moving data. 

Exit from system state Uto to 9*) 



4*: RETURN 

Finished 
9*- 



Exit from system state — go to 9* 



MOV 


(SP)+- 


RR 


MOV 


< SP ) +, 


R4 


MOV 


( 3P ) +> 


R2 


RETURN 
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WTMOVE — Move data from user's buffer to cache 



t 
i 



2 
3 
4 
5 
6 
7 

e 

9 
10 
11 
12 

13 
14 
15 
16 
17 
IS 
19 



001 
001 
001 
001 



152 
154 
156 
160 



001 
001 
001 



162 
170 
174 



20 
21 
22 
23 
24 
25 
26 

27 001212 

28 001216 
001222 



001176 
001204 



29 
30 
31 
32 

33 001226 

34 001232 

35 001236 

36 001240 
37 

38 
39 

40 001244 

41 001246 

42 001252 

43 001254 

44 001256 

45 001260 

46 001262 

47 001264 

48 001266 

49 001270 

50 001272 

51 001274 

52 001276 

53 001300 

54 001302 

55 001304 

56 001306 

57 001310 



WTMOVE — Hove data from user's buffer to cacht? 

WTMOVE is called to move a block of data from the user's buffer into 
a cache buffer. 

Inputs: 
R5 = Pointer to cache control block. 



010246 
010446 
010546 
010502 



WTMOVE : MOV 
MOV 
MOV 
MOV 



R2, -<SP> 
R4, -(SP) 
R5, -(SP) 
R5. R2 



i Carry control block pointer in R2 



Enter system state so we can use PARS and PAR6 to map to the cache 

and «>Ber buffers. 



004737 OOOOOOG 
OOOOOOQ 



. ADDR 
CALL 
. WORD 



#9«, RO 

@#ENSYS 

FP*MOV 



i Go to 9$ on exit from system state 

j Enter system state 

; Set fork priority level 



010002 
072227 
001421 
012425 
012425 
012425 
012425 
012425 
012425 
012425 
012425 
012425 
012425 
012425 
012425 
012425 
012425 



We are now running in system state on the interrupt stack. 
Kernel PAR5 and PAR6 are free. 
Setup buffer pointers. 



016237 OOOOOOe OOOOOOG 

016237 OOOOOOe OOOOOOG 

012704 OOOOOOG 
066204 OOOOOOG 

012705 OOOOOOG 



016200 OOOOOOG 

020027 000400 

101402 

012700 000400 



MOV 
MOV 
MOV 
ADD 
MOV 



CC$UBP(R2.K. e^KPARS ; Set PAR base for user's buffer 
CC*CBP(R2), e#KPAR6 ; Set PAR base for cache buffer 
#VPAR5,R4 ;Get virtual address base for user's buffer 

Add offset within 64-byte block region 
Get virtual address base for cache buffer 



CC*UB0<R2)>R4 
#VPAR6, R5 



Get number of words to move 



RO 



MOV 


CC«WCT<R2)> 


CMP 


RO, #256. 


BLOS 


5* 


MOV 


#256. , RO 



; Get total remaining word count 

i More than a block wanted? 

; Br if not 

j Move 1 block this time 



Move as many blocks of 16 words as possible 



5*: 



177774 



7*: 



MOV 
ASH 
BEQ 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 



RO, R2 

#-4, R2 

6* 

<R4)+, 

<R4)+, 

(R4)+. 

<R4)+, 

(R4)+, 

<R4>+, 

(R4)+, 

(R4)+, 

<R4)+, 

(R4)+, 

(R4)+> 

(R4)+, 

<R4)+, 

(R4)+, 

(R4)+, 



<R5) + 
<R5) + 
(R5) + 
(R5) + 
<R5) + 
<R5> + 
<R5> + 
<R5) + 
<R5) + 
(R5) + 
(R5) + 
<R5) + 
<R5) + 
<R5) + 
(R5) + 



Get total number of words to move 

Get # blocks of 16 words to move 

Br if less than 16 words need to be moved 



Move 
Move 
Move 
Move 
Move 
Move 
Move 
Move 
Move 
Move 
Move 
Move 
Move 
Move 
Move 



1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 
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f 

€ 



58 001312 

59 001314 
60 

61 
62 

63 001316 

64 001322 

65 001324 

66 001326 

67 001330 

68 001332 

69 001334 

70 001336 

71 001340 
72 

73 

74 

75 

76 001342 

77 

78 

79 

BO 001344 

81 001346 

82 001350 

83 001352 



012425 
077221 



042700 
001407 
006200 
001403 
012425 
012425 
077003 
103001 
011415 



MoV <R4)+, <R5) + 
30B R2, 7* 



000207 



012605 
012604 
012602 
000207 



177760 



; Move 16 

; Loop if more blocks of 16 to move 



Nniu move an" remainin" words (less than 16) 



6*: 



?*: 



3*: 



BIC 


#•'^17, RO 


BEQ 


4* 


ASR 


RO 


BEQ 


3* 


MOV 


(R4)+, <R5)-i- 


MOV 


(R4)+, (R5)+ 


SOB 


RO, 2* 


BCC 


4* 


MOV 


<R4), (R5) 



4«: 



9$- 



RETURN 




Finished 




MOV 


<SP)+, R5 


MOV 


(SP)+. R4 


MOV 


<SF)+, R2 


RETURN 





Any words left to move? 

Br if not 

Get number of doublewords to move 

Br if less than 2 words to move 

Move a word 

Move second word of pair 

Loop if more doublewords left to move 

Br if don't have odd word left to move 

Move last word 



Finished moving data. 

Exit from system state <go to 9*) 



jExit from system state 



go to 9* 
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TSCASH 
CSHBLD 
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7 
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12 
13 
14 
15 
16 
17 
IS 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
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41 
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53 
54 
55 
56 
57 
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— Build empty cache descriptors for new entries 



001354 010146 
001356 010446 
001360 016546 OOOOOOG 

OOOOOOG 



001370 004767 000230 
001374 103407 



001376 
001404 



OOtJOll 



001406 004767 000360 
001412 000427 



001414 004767 001226 
001420 103004 



001422 013701 OOOOOOG 
001426 004767 001006 



001432 

001440 016511 OOOOOOG 

001444 

001452 016511 OOOOOOG 

001456 

001464 005011 



001466 004767 000434 



SBTTL CSHBLD 



Build empty cache descriptors for neui entries 



CSHBLD is called when we need to move new data into the cache. 

It builds cache block descriptors for all blocks that will be added 

to the cache and marks the descriptors as empty <CC*WCT=0). 

Inputs: 
R5 = Pointer to cache control block. 



CSHBLD: MOV 
MOV 
MOV 
MOV 



R4, ~(SP) 

CC*BLK<R5)* -<SP); Save starting block number 

CCfWCT<R5)>R4 J Get total usord count 



Begin loop to build an entry for each block. 

See if there is already an entry for the next block. 



1*: 



CALL 
nrQ 



CSHLDC 
3* 



;Is there an entry for the next block? 
i Br if not 



An entry already exists for the next block. 
Mark the entry as empty. 



MAP TO 

CLR 



CA*WCT 

<R1) 



i Map to word count table 

; Say entry is empty 



Move this cache block to the head of the LRU chain 
(That is* make it the most recently used) 



CALL 
BR 



CSHUSE 
2* 



;Make this block be the most recently used 



There is not an existing entry for this block. 
See if we can get a free cache block entry. 



3*: 



CALL 
BCC 



CSHGET 
5* 



i Try to get a free cache block entry 
j Br if we got a free entry 



There are no free cache block entries. 

Get the 1 east-recently-used entry and use it. 



MOV @#CSHLRU, Rl 
CALL CSHREM 



; Get pointer to least-recently-used entry 
i Remove that entry from all lists 



5*: 



Set up descriptive information about this entry 

MAPTO CA*BLK ; Point to block number table 

MOV CC*BLK<R5), (Rl> > Set block number 

MAPTO CA*DVU ; Map to device & unit number table 

MOV CC*DVU(R5)* <R1 ) i Set device and unit number 

MAPTO CA*WCT i Map to word count table 

CLR (Rl) i Say entry is empty 



Add new entry to lists 
CALL CSHADD 



Add new cache entry to appropriate lists 
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CSHBLD — Build empty cache descriptors for new entries 



DO 

59 

60 001 

61 001 

62 001 

63 001 

64 001 

65 001 

66 001 
67 

68 
69 

70 001516 

71 001522 

72 001524 

73 001526 



472 
476 
500 
504 
506 
512 
514 



005265 
010400 
020027 
101402 
012700 
160004 
001325 



012604 
012601 
000207 



OOOOOOG 



000400 



000400 



2«: 



«ovance diock numoer ana see if -cnere are more enTries to ouiia 

j Increment block number 
j Get remaining word count 
; More than a block? 
; Br if not 

i# words moved this time 
4$: SUB RO. R4 ; Need to build more entries? 

> Br if yes 



MOV <SP )■•-> CC*BLK< R5> > Restore original block number 

MOV < SP ) +, R4 

MOV <SP)+.. Rl 
RETURN 



INC 


CC«BLK(Rfi) 


MOV 


R4, RO 


CMP 


RO. #256. 


BLOS 


4* 


MOV 


#256. , RO 


SUB 


RO, R4 


BNE 


1* 


Fini shed 
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TSCASH ■ 
CSHCLN - 

1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

U 

12 

13 

14 

15 

16 

17 

IS 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 
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— Remove all entries for a specified device 



001530 010146 
001532 010246 
001534 013746 0000000 



001540 005737 0000000 
001544 001422 



001546 013701 OOOOOOG 
001552 001417 



001554 

001562 011102 

001564 

001572 020311 

001574 001004 



001576 004767 000636 



001602 004767 001070 



001606 010201 
001610 001361 



001612 012637 OOOOOOG 

001616 012602 

001620 012601 

001622 000207 



- r\t?iTiuvtr axx e ■ i i> i jl e s T"Ui' la spBCi'rieo deviCB 

CSHCLN is called to remove from the cache all entries for a specified 
device. 

Inputs: 
R3 = Unit # (high byte), device # (lou» byte) 



CSHCLN: MOV 
MOV 
MOV 



R 1 , = < SP ) 
R2, - ( SP ) 
@#KPAR5, -<SP) 



J Save system overlay mapping status 

Determine if cachinq has been disabled 



TST 



@#VCSHWB 
9* 



J Are there any active cache buffers? 
> Br if not 



Begin search through list of ail cache entries. 



MOV 

BEQ 



@#CSHLRU, Rl 

9* 



; Point to least-recentiy-used entry 
; Br if no entries on use list 



See if this entry is for a block on specified device 



.1*: 



MAP TO 


CA«UBL 


MOV 


< R 1 > , R2 


MAP TO 


CA*DVU 


CMP 


R3, (Rl) 


BNE 


2* 



; Map to backward link 

i Get pointer to next entry to check 

i Map to device & unit # table 

i Is this entry for specified device? 

■> Br if not 



We found an entry that needs to be deallocated. 
Remove it from all lists. 



CALL CSHREM 
Put entry on the free litr-t. 

CALL CSHFRE 
Check next entry 



MOV 
BNE 

Finished 



9«: 



MOV 
MOV 
MOV 
RETURN 



R2, Rl 
1* 



(SP)+, @#KPAR5 
(SP)+, R2 
(SP)+, Rl 



/Remove entry from all lists 



j Put entry on the free list 



iGet pointer to next entry to check 
i Br if there is another to check 



i Restore system overlay mapping status 



I 
* 

I 

€ 
€ 
I 
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€ 

I 
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f 



J, 

2 

3 

4 

5 

6 

7 

8 

9 
10 
11 
12 
13 
14 
15 
16 

17 001624 
IS 001626 
19 
20 
21 

22 001630 

23 001634 
£4 001636 

25 001642 

26 001644 
27 

28 
29 

30 001650 

31 001654 

32 001660 

33 001666 

34 001670 

35 001672 

36 001700 

37 001702 

38 001704 

39 001706 

40 001714 

41 001716 

42 001720 

43 001726 

44 001730 

45 001732 
46 

47 
48 
49 

50 001734 

51 001736 

52 001742 

53 001746 

54 001752 

55 001756 

56 001760 
57 



Sb 1 iL CijHLDC 



Determine if entry exists in cache table 



010246 
010346 



016503 
005002 

071237 
006303 
062703 



016502 
016500 

011301 
001434 

020211 
101006 
103426 

020011 
001406 

011101 
001360 
000413 



010103 
162703 
072327 
063703 
010365 
000241 
000401 



Determine if an entry exists in the cache for a specified block 
on a soecified d«=virp 



Inputs; 
R5 = Pointer to cache control block. 
CC*BLK(R5) = Block number. 
CC*DVU(R5) = Device and unit numbers. 



Outputs: 
C-flag cleared ==> Found entry. 
C-fiag set ==> Wo entry for 
Rl = Cache table index. 
CC*CBP(R5) = 64-byte par offset 

CSHLOC: MOV R2,-(SP) 
MOV R3, -<SP) 



Compute hash head index for this block 



b loc k in cache. 



to start of cache buffer. 



ooooooe 

OOOOOOG 
OOOOOOG 



OOOOOOG 
OOOOOOG 



MOV CC«BLK(R5).. R3 

CLR R2 

DIV @#VCSHNB,R2 

ASL R3 

ADD #VPAR5, R3 



.: Get block number 

;Clear for divide 

>Get block number mod number of hash heads 

> Convert remainder to word table index 

iAdd virtual address base 



I 

I 



Search hash list for the specified block 



1*: 



2*: 



MOV 


CC*BLK<R5),R2 


-Get r 


MOV 


CC*DVU<R5),R0 


Get d 


MAP TO 


CA*HSH 


Map t 


MOV 


<R3),R1 


Get p 


BEQ 


8* 


Br if 


MAP TO 


CA*BLK 


Map t 


CMP 


R2, <R1) 


Is en 


BHI 


2* 


No. b 


BLO 


8* 


No. e 


MAP TO 


CA*DVU 


Map t 


CMP 


RO, (Rl) 


Is th 


BEQ 


3* 


Br if 


MAP TO 


CA*HFL 


Map t 


MOV 


<R1), Rl 


Get p 


BNE 


1* 


Loop 


BR 


8* 


Entry 



requested block number 
levice 8< unit number 
;o hash list heads 

ointer to 1st entry on hash list 

no entries on this hash list 
;o block number entries 
(try for desired block? 
lut there may be more entries 
!ntry is not on the list 
;o device and unit numbers 

is entry for correct device? 

yes — We found the entry 
;o hash forward links 
lointer to following entry 

if there is another entry 
does not exist 



We found the entry. 

Set up information about this entry 



3*: 



OOOOOOG 
000002 
OOOOOOG 
OOOOOOG 



MOV 
SUB 
ASH 
ADD 
MOV 
CLC 
BR 



Rl, R3 
#VPAR5, R3 
#2, R3 

@#CSHBFP, R3 
R3, CC*CBP<R5) 

9* 



Get address of entry 

Subtract address bias 

Compute corresponding buffer 64-byte # 

Add base 64-byte block # of buffer area 

Save 64-byte pointer to cache buffer base 

Signal success on return 



t 
I 
I 

4 



TSCASH — TSX-Plus Data Caching MACRO V05. 05 Tuesday 17-Jan-89 14:12 Page 13-1 
CSHLOC — Determine if entry exists in cache table 



58 

59 

60 001762 000261 

61 

62 

63 

64 001764 012603 

65 001766 012602 

66 001770 000207 



HO entry trxists •Pwr this block 



8$: SEC 
Finished 
9*: 



J Signal failure on return 



MOV (SP)+, R3 
MOV <SP)+, R2 
RETURN 






i 
f 
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I 
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CSHUSE - 

i 
2 
3 
4 
5 
6 
7 
S 
9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
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-- Make cache entry be mo5t~recentiy-used 



001772 010246 
001774 010346 



001776 020137 OOOOOOG 
002002 001446 



002004 

002012 011103 

002014 

002022 011102 

002024 001003 

002026 010337 OOOOOOG 

002032 00040^^ 

002034 

002042 010312 

002044 005703 

002046 001003 

002050 010237 OOOOOOG 

002054 000404 

002056 

002064 010213 



002066 013702 OOOOOOG 

002072 

002100 010112 

002102 005011 

002104 

002112 010211 

002114 010137 OOOOOOG 



002120 012603 
002122 012602 
002124 000207 



. 3BTTL GSHUSfc. — Hake cache entry be most— recent iy--used 

CSHUSE is called to make a specified cache entry be the 
most recently used entru. 

Inputs: 
Rl = Cache entry to be made most-recently-used. 



CSHUSE: 


MOV 


R2, -(SP) 




MOV 


R3, =<SP) 


i See 


if entry 


already is 




CMP 


R 1 , S#CSHMRU 




BE<3 


9* 



Remove entry from LRU list 



1*: 
2*: 

3$: 



MAP TO 


CA*UFL 


MOV 


(R1),R3 


MAP TO 


CA*UBL 


MOV 


<R1), R2 


BNE 


1* 


MOV 


R3, @#CSHMRU 


BR 


2* 


MAPTO 


CA*UFL 


MOV 


R3, (R2) 


TST 


R3 


BNE 


3* 


MOV 


R2, S#CSHLRU 


BR 


4* 


MAPTO 


CA*UBL 


MOV 


R2, <R3) 



Add entry to end of LRU li&t 



4*: 



9$: 



MOV 


@#CSHMRU, R2 


MAPTO 


CA*UBL 


MOV 


Rl, <R2) 


CLR 


{RD 


MAPTO 


CA«UFL 


MOV 


R2, <R1) 


MOV 


R1,@#CSHMRU 


Fini shed 




MOV 


<SP)+, R3 


MOV 


<SP>+, R2 


RETURN 





; Is entry already most recently used? 

; Br if yes 



i Map to LRU forward link 

i Get pointer to entry that follows us 

j Map to LRU backward link 

; Get pointer to entry that precedes us 

; Br if we are not at the head of the list 

; Sau following entry is now head of list 

;Map to LRU forward link 

iMake previous entry point to following entry 

;Is there a following entry? 

; Br if yes 

i Say previous entry is now last entry in list 

i Map to LRU backward link 

J Make following entry point to previous entry 



Get index to current MRU entry 

Map to falackward link table 

Make previous MRU entry point back to us 

Make our backward link O 

Map to forward link table 

Make us point to previous MRU entry 

Say we are MRU entry 



I 

i 
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SBTTL CSHADD 



Add cache table entry to appropriate lists 



3 








4 








5 








6 








7 


002126 


010246 




S 


002130 


010346 




9 


002132 


010446 




10 








11 








12 








13 








14 


002134 


013702 


0000000 


15 


002140 


001414 




16 


002142 






17 


002150 


010112 




18 


002152 


005011 




19 


002154 






20 


002162 


010211 




21 


002164 


010137 


OOOOOOG 


22 


002170 


000414 




23 








24 








25 








26 


002172 


010137 


OOOOOOG 


27 


002176 


010137 


OOOOOOG 


28 


002202 






29 


002210 


005011 




30 


002212 






31 


002220 


005011 




32 








33 








34 








35 


002222 






36 


002230 


011103 




37 


002232 


005002 




38 


002234 


071237 


OOOOOOG 


39 


002240 


006303 




40 


002242 


062703 


OOOOOOG 


41 


002246 






42 


002254 


011302 




43 


002256 


001012 




44 








45 








46 








47 








48 


002260 


010113 




49 


002262 






50 


002270 


005011 




51 


002272 






52 


002300 


005011 




53 


002302 


000452 




54 








55 








56 








57 









CSHADD is called to add a new cache table entry to the LRU and Hash lists. 
The entry is placed at the head of the LRU list and is placed on the 
appropriate hash list based on its block number. 



CSHADD: MOV 
MOV 
MOV 



R2, -<SP) 
R3, -<SP) 
R4, -<SP) 



Add entry to end of LRU li&t 

(That isj make it the most recently used entry) 



MOV 


@#CSHMRU, R2 


BEQ 


4* 


MAPTO 


CA*UBL 


MOV 


Rl, (R2) 


CLR 


<R1) 


MAPTO 


CA*UFL 


MOV 


R2, (Rl) 


MOV 


R1,@#CSHMRU 


BR 


5* 



4f: 



5*: 



Get index to current MRU entry 

Br if list is empty 

Map to blackuiard link table 

Make previous MRU entry point back to u! 

Make our backward link 

Map to forward link table 

Make us point to previous MRU entry 

Say we are MRU entry 



We are the only entry on the LRU list 

Say we are the most recently used entry 

And the least recently used entry 

Map to forward link list 

No forward link for us 

Map to backward link list 

No backward link for us 

Now add entry to the appropriate hash list based on the block number. 

Map to block # table 

Get block # of this entry 

Clear for divide 

Make block # mod number of list heads 

Convert remainder to word table index 

All addresses are relative to par5 

Map to hash list heads 

Get current entry at front of list 

Br if list has some entry 

The hash list is currently empty. 
Make our item be only entry on list. 



MOV 


Rl, SttCSHMRU 


MOV 


R 1 , @#CSHLRU 


MAPTO 


CA*UFL 


CLR 


<R1) 


MAPTO 


CA*UBL 


CLR 


(Rl) 



MAPTO 


CA*BLK 


MOV 


(R1),R3 


CLR 


R2 


DIV 


@#VCSHNB, R2 


ASL 


R3 


ADD 


#VPAR5> R3 


MAPTO 


CA*HSH 


MOV 


(R3),R2 


BNE 


1« 



MOV 


Rl> (R3) 


MAPTO 


CA*HFL 


CLR 


(Rl) 


MAPTO 


CA*HBL 


CLR 


(Rl) 


BR 


9* 




There are some entries on the hash list. 

Insert our entry in front of 1st entry with same or higher block number. 



I 
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TSCASH - 


— TSX-Plus Dat 


CSHADD - 


— Add cache ta 


58 


002304 




59 


002312 


011104 


60 


002314 




61 


002322 


020412 


62 


002324 


101415 


63 


002326 


010200 


64 


002330 




65 


002336 


011202 


66 


002340 


001365 


67 






68 






69 






70 


002342 


oioiio 


71 


002344 


005011 


72 


002346 




73 


002354 


010011 


74 


002356 


000424 


75 






76 






77 






78 


002360 




79 


002366 


010211 


80 


002370 




81 


002376 


011200 


82 


002400 


010112 


83 


002402 


010011 


84 


002404 


001005 


85 


002406 




86 


002414 


010113 


87 


002416 


000404 


88 


002420 




89 


002426 


010110 


90 






91 






92 






93 


002430 


012604 


94 


002432 


012603 


95 


002434 


012602 


96 


002436 


000207 



?*: 



esday 


17-Jan-89 


ists 




nAPTQ 


CA*BLK 


HOV 


<R1),R4 


MAPTO 


CAfBLK 


CMP 


R4, (R2> 


BLOS 


3* 


MOV 


R2, RO 


MAPTO 


CA*HFL 


MOV 


<R2),R2 


BNE 


2» 



14: 12 Page 15-1 



to b i DC k # tab i e 
our block number 



nap 

Get 

Map to block number table 

Search for 1st entry with same or higher blk 

Br if found insert point 

Save address of last entry checked 

Map to hash forward link 

Get pointer to next entry on this list 

Loop if there is another one 



Add our entry to the tail of the hash list 



3$: 



6«: 



9*: 



MOV 


Ri- (RO) 


CLR 


(Rl) 


MAPTO 


CA«HBL 


MOV 


RO. (Rl) 


BR 


9* 


Insert our 


entry into 


MAPTO 


CA*HFL 


MOV 


R2, (Rl) 


MAPTO 


CA*HBL. 


MOV 


(R2),R0 


MOV 


Rl, <R2) 


MOV 


RO, <R1) 


BNE 


6* 


MAPTO 


CA*HSH 


MOV 


Rl, <R3) 


BR 


9* 


MAPTO 


CA*HFL 


MOV 


Rl, (RO) 


Fini shed 




MOV 


(SP)+, R4 


MOV 


(SP)+, R3 


MOV 


(SP)+, R2 


RETURN 





us 



iMake last forward link point to 
j Say nothing follows us 
; Map to hash backward link table 
; Set pointer to previous entry 



list in front of entry pointed to by R* 



Map to hash forward links 

Remember which entry follows us 

Map to haBh backward links 

Find out which entry precedes us 

Make following entry point back to 

Set our backward pointer 

Br if we are not at head of list 

Map to hash list head 

Make list head point to us 

; Map to forward links 

iMake previous entry point to us 



us 
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3 






4 






5 






6 






7 






8 






9 


002440 


010246 


10 


002442 


010346 


11 


002444 


010446 


12 






13 






14 






15 


002446 




16 


002454 


011103 


17 


002456 




IS 


002464 


011102 


19 


002466 


001003 


20 


002470 


010337 OOOOOOG 


21 


002474 


000404 


22 


002476 




23 


002504 


010312 


24 


002506 


005703 


25 


002510 


001003 


26 


002512 


010237 OOOOOOG 


27 


002516 


000404 


28 


002520 




29 


002526 


010213 


30 






31 






32 






33 






34 


002530 




35 


002536 


011103 


36 


002540 


005002 


37 


002542 


071237 OOOOOOG 


38 


002546 


006303 


39 


002550 


062703 OOOOOOG 


40 


002554 


010304 


41 






42 






43 






44 


002556 




45 


002564 


011103 


46 


002566 




47 


002574 


011102 


48 


002576 


001405 


49 






50 






51 






52 


002600 




53 


002606 


010312 


54 


002610 


000404 


55 






56 






57 







nfe'riJuvt? uai-nis i>j.t»i.R t;iioi-ij riuiTi a i i ii&l;& 



CSHREM is called to removf? a cache block entry from the LRU list 
and from the hash list. 

Inputs: 
Rl == Index to cache block entry to be removed. 



CSHREM: MOV 
MOV 
MOV 



R2, -<SP) 
R3, -(SP> 
R4, -<SP) 



Remove sntru from LRU iifct 



1*; 
2ip; 

3*: 



MAP TO 


CA*UFL 


MOV 


<R1),R3 


MAP TO 


CA*UBL 


MOV 


(R1)>R2 


BNE 


1* 


MOV 


R3, @#CSHMRU 


BR 


2* 


MAP TO 


CA*UFL 


MOV 


R3, (R2> 


TST 


R3 


BNE 


3« 


MOV 


R2, e#CSHLRU 


BR 


4* 


MAP TO 


CA*UBL 


MOV 


R2, <R3) 



,; Map to LRU forward link 

iGet pointer to entry that follows us 

i Map to LRU backward link 

;Get pointer to entry that precedes us 

i Br if we are not at the head of the list 

i Say following entry is now head of list 

f hap to LRU forward link 

J Make previous entry point to following entry 

* Is there a following entry'7-' 

; Br if yen 

i Say previous entry is now last entry in list 

> Map to LRU backward link 

iMake following entry point to previous entry 



Remove entry from hash list. 
Compute the hash table index. 



4*: 



MAP TO 


CA*BLK 


MOV 


<R1)>R3 


CLR 


R2 


DIV 


@#VCSHNB, R2 


ASL 


R3 


ADD 


#VPAR5, R3 


MOV 


R3, R4 



i Map to block number table 

> Get block number 

iClear for divide 

; Get index modulus number of hash list heads 

.; Convert remainder to word table index 

i Bias by PARS base 

j Save hash head index 



Get our hash forward and backward links 



MAP TO 


CA«HFL 


MOV 


(Rl), R3 


MAP TO 


CA*HBL 


MOV 


(R1),R2 


BEO 


5* 



; Map to hash forward link 

i Get pointer to following entry 

; Map to hash backward link 

iGet pointer to previous entry 

; Br if we art^ at the head of the list 



We are not the 1st entry in the list. 



MAP TO 


CA*HFL 


MOV 


R3, (R2) 


BR 


6* 



; Map to hash forward link 

;Make previous entry point to following entry 



I 



I 

t 
I 



We are the Ist entry in the list 
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TSCASH 
CSHREM 
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— Remove cache block entry from all lists 



5B 
59 
60 
61 
62 
63 
64 
65 



68 
69 
70 
71 
72 
73 



002620 010314 



002622 005703 

002624 001404 
002626 

002634 010213 



002640 012603 
002642 012609 
002644 000207 



i-'v: 



I'iHr ! u 

nov 



t,ft*i-!i3l-l 
R3, <R4) 



UDdate entru that folloujii U5 



6*: 



9*; 



TST 


R3 


BEQ 


9* 


MAP TO 


C.A*HBL 


MOV 


R2, (R3) 


Fini&hed 




MOV 


<SP)-t-, R4 


MOV 


(SP)+, R3 


MOV 


< SP ) +.. R,2 


RETURN 





■nap to hash list heads 

iMake hash list head point to following entry 



; Is there a folloming entry? 

; Br if not 

; Map to hash backward link 

j Make foiioujing entry point to preceding entry 
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Try to get a free cache block entry 



002646 



002646 013701 OOOOOOG 
002652 001407 



002654 

002662 011137 0000000 

002666 000241 

002670 000401 



002672 000261 



002674 000207 






T»... •!-» M»4< -% Jl-^ t^ n .-.-%f-^n W1j-^^1# «.«.fc.^.. 
if'^ vu \^ c \/ a iii7tr i.ciufi€ u^L^un iriivi'^ 



CSHGET is called to try to get a free cache block entry. 

Outputs: 
C"-f=lag cleared ==> A free cache block entry was gotten. 
C -f lag set ==> There are no free cache blocks available. 
Rl == Address of free cache block. 

CSHGET: 

Get entry off of front of free list 



MOV 
BEQ 



@#CSHFHB, R 1 
8* 



; Is there a free entry? 
j Br if not 



We got a free entry, rejnove it from the list. 



MAPTO CA*UFL 

MOV 

CLC 

BR 9$ 



i Map to forward link list 
<Rl),©#CSHfHD i Remove entry from list 

> Signal success on return 



fhere are no free entritb 
8$: SEC 
Fijiished 
9*: RETURN 



i Signal failure on return 
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CSHFRE — Return a cache block entry to the free list 



1 

2 

3 

4 

5 

6 

7 

a 002676 013700 OOOOOOG 

9 002702 010137 OOOOOOG 

10 002706 

11 002714 010011 

12 002716 000207 



. SBTTL CSHFRE — F^t'turn a cache biouk eittr-y to the fj-tre li&i 

CSHFRE is called to return a cache block entry to the free list. 

Inputs: 
Rl = Index of cache block entry to be freed. 



CSHFRE: MOV 
MOV 



MOV 
RETURN 



@#CSHFHD, RO 
Rl, @#C3HFHD 
CA*UFL 
RO, (Rl ) 



; Get pointer to Ist entry on free list now 

; Say me are Ist entry on free list 

; Map to forujard link list 

;Make us point to next entry on free list 
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- Determine if device is mounted 



3 
4 
5 

7 
8 

O 
/ 

10 

11 

12 
i. \^ 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 



. C3i3 I I !_. I., on I .3 I lJ(e \ e fiTi,i lie iT uirvjLi.e i=» iiiuun i»ir u 

CSHTST is called to determine if the device associated with the current 
I/O operation is mounted and should be cached. 

Inputs: 
Rl = Pointer to I/O queue element. 

C-fiag cleared ==> Device is mounted and should be cached. 



002720 
002722 



002724 
002730 
002734 
002736 
002742 



002744 
002752 



002754 
002756 
002762 
002766 
002770 
002774 
003000 



003002 
003004 



010246 
010546 



116100 
042700 
000300 
116102 
001417 



032762 
001013 



050002 
013705 
020265 
001407 
062705 
020537 
103770 



000261 
000401 



CSHTST: MOV 

MOV 



R2, -<SP) 
R5, -CSP) 



OOOOOOG 
177770 

OOOOOOG 



MOVE 


Q. UNIT(R1),R0 


BIC 


#'^C7, RO 


SWAB 


RO 


MOVB 


Q. DEVX<R1),R2 


BEQ 


3* 



OOOOOOG OOOOOOG 



Get device index number and unit number 

Get unit number 

Clear all but unit number 

Put in high-order byte 

Get device index number 

Br if I/O operation has been cancelled 

See if this device is eliqible for caching 

BIT #DX*NCA, DyFLAG(R2); Is the no-cache flag set for this device? 
BNE 3* i Br if caching not allowed 

Search table of mounted devices 



OOOOOOG 
OOOOOOG 

OOOOOOG 
OOOOOOG 



1*: 



BIS RO, R2 

MOV e#CSHDEV, R5 

CMP R2, CD*DVU(R5> 

BEQ 2* 

ADD #CD**SZ>R5 

CMP R5, e#CSHDVN 

BLO 1* 

Device is not cached 



003006 000241 



003010 
003012 
003014 



012605 
012602 
000207 



*: SEC 






BR 




9* 


Device is 


mounted 


*: CLC 






Finished 






*: MOV 




(SP)+, Rf5 


MOV 




( SP ) +, RS 


RETURN 





Combine unit number and device number 

Point to start of table 

Is this entry for this device? 

Br if yes — Device is mounted 

Point to next entry 

Checked all? 

Loop if not 



Signal that device is not mounted 



jSignai that device is mounted 
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TSCASH ■ 


— TSX-Plus Data 


Caching 


MACRO VO 


CCBGET - 


— Get a 


free cache control block 


1 
2 










3 










4 










5 










6 










7 










S 










9 










10 










11 










12 










13 










14 










15 










16 










17 










18 


003016 


010246 




i 


19 


003020 


010346 






20 








. 


21 








1 


22 










23 


003022 








24 


003030 


013705 


OOOOOOG 




25 


003034 


001015 






26 










27 










28 










29 










30 


003036 


113705 


OOOOOOG 




31 


003042 


052765 


OOOOOOG 


OOOOOOG 


32 


003050 


012700 


OOOOOOG 




33 


003054 


004737 


OOOOOOG 




34 


003060 


042765 


OOOOOOG 


OOOOOOG 


35 


003066 


000755 






36 










37 










38 










39 










40 


003070 


016537 


OOOOOOG 


OOOOOOG i 


41 










42 










43 










44 


003076 


013765 


OOOOOOG 


OOOOOOG 


45 


003104 


010537 


OOOOOOG 




46 


003110 


005237 


OOOOOOG 




47 


003114 








48 










49 










50 










51 


003122 


010567 


174664 




52 


003126 


010167 


174662 




53 


003132 


010165 


OOOOOOG 




54 


003136 


016165 


OOOOOOG 


OOOOOOG 


55 


003144 


016100 


OOOOOOG 




56 


003150 


002001 






57 


003152 


005400 
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.suriL t;CJ3ytT — Qet a free cache control block 

Get a free cache control block and initialize it with information 
frofn the I/O queue elemejit. 

Inputs: 
Rl = Pointer to I/O queue element. 



Outputs: 

R 5 — F* o i n t e r 

CC*DVU(R5) = 

CC«BLK(R5) = 

CC*0GE(R5) = 

CC*UBP<R5) ™ 

CC«UB0<R5) = 

CC$WCT<R5) = 

CCBGET: MOV 
MOV 



to cache cantrol block. 
= Unit number <high byte)., device number <low byte). 
= Starting b3ock number for transfer. 
= Address of original I/O queue element. 
■ 64-byte block number of base of user's buffer. 
= Offset within 64-byte block of ubst's buffer base. 
= Total word count. 

R2, -(SP) 
R3, -<SP) 



See if there is a free cache control block available 



.1«- 



DTSABL 

MOV @«CCBHD, R5 






Disable interrupts 

Is there a free control block? 

B T~ if yes 



There are no free cache control blocks. 
Suspend job until one becomes available. 



MOVE @#C0RUSR,R5 

BIS #*NOABT, LSW9<R5) 

MOV #S*QCCB> RO 

CALL e#QNSPNX 

BIC #*NOABT, LSW9<R5) 

BR 1$ 



j Get job index number 

; Disallow job aborts 

i Waiting for cache control block 

/Suspend job till control block freed 
Reenable job aborts 
Go try again 



2*: 



There is a free cache control block. 
Claim it for our job. 

MOV CC*LNK<R5),e#CCBHD; i i Remove control block from free list 

Put control block on list for job so it will be freed if job aborts 



MOV 
MOV 
INC 
ENABL 



@#JDBCCB, CC*LNK<R5); i ; Add to list for job 
R5, @#JOBCCB 

; i One more pending cache control block 

Enable interrupts 



e#NPCCB 



Set up information in control block 

MOV R5, CURCCB i Save address of current control block 

MOV Rl, lOQIN ; Save address of original queue element 

MOV Rl, CC*0QE<R5) ; Save address of original queue element 

MOV Q. BLKN<Ri)>CC*BLK(R5) i Set block number 

MOV Q. WCNT<R1)> RO i Get word count 

BGE 3* i Br if positive 

NEG RO i Get positive word count 
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i 



58 003154 

59 003160 

60 003164 

61 003170 

62 003174 

63 003202 

64 003206 

65 003212 

66 003214 

67 003220 

68 003224 

69 003230 

70 003232 

71 003236 
72 

73 
74 

75 003242 

76 003244 

77 003246 



010065 
116100 
042700 
110065 
116165 
016102 
162702 
005003 
073227 
066102 
010265 
000303 
072327 
010365 



012603 
012602 
000207 



OOOOOOQ 

OOOOOOG 

177770 

00000 IG 

OOOOOOG OOOOOOG 

OOOOOOG 

OOOOOOG 

177772 

OOOOOOG 

OOOOOOG 

177776 
OOOOOOG 



rj*- 



MOVE 

BIC 

MOVE 

MOVE 

MOV 

SUB 

CLR 

ADD 

MOV 

SWAB 

ASH 

MOV 

Fini shed 

MOV 
MOV 
RETURN 



Q. UNIT<R1).R0 iGet unit number 
#••^07, RO ; Clear all but unit number 

RO, CC*DVU+1<R5> iPut unit number in high-order byte 
Q. DEVX(R1 ), CC*DVU<R5) ; Put device number in low-order byte 

) Get virtual address of user's buffer 
; Remove virtual address bias 
i Clear for shift 

jv-onvert address to 64— byte block nutnber 
;Add base 64-byte block number 
iThis is the 64-byte block # of buffer base 
;Get byte within block to low-order of R3 



Q. BUFF<R1), R2 
#VPAR6, R2 
R3 



0. PAR<R1}, R2 

R2, CC*UBP(R5) 

R3 

#-2> R3 

R3, CC*UB0(R5) 



; Save offset within 64-byte block 



<SP)+, R3 
(SP>+, R2 
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CCBFRE — Free a cache control block 

. SBTTL CCBFRE — Free a cache control block 

Free a cache control hlotfc. 

Inputs: 
R5 = Address of cache control block being freed. 

003250 CCBFRE: 

j 
; Remove cache control block from active list for this job 

i 

#JOBCCB-CC«LNK, RO 



I 
2 
3 
4 
5 
6 
7 
8 

T 
10 
11 

12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 



003250 012700 OOOOOOC 

003254 

003262 026005 OOOOOOG 1$: 

003266 001403 

003270 016000 0000000 

003274 000772 

003276 016560 OOOOOOG OOOOOOG 2$: 

003304 005337 OOOOOOG 



003310 013765 OOOOOOG OOOOOOG 

003316 010537 OOOOOOG 

003322 

003330 005067 174456 



003334 012700 OOOOOOG 
003340 004737 OOOOOOG 



MOV 

Dl SABL 

CMP 

BEQ 

MOV 

BR 



Get dummy pointer to list head 

«* Disable interrupts ** 

Is our block next one in listT-" 

Br if yes 

Link forward to next block 



CC*LNK(RO). R5 

2* 

CC*LNK(RO>, RO 

1* 

CC*LNK<R5). CC*LNK<RO); i i Remove block from list 

®#NPCCB > i j One less pending cache control block 



Put control block on free list 



MOV 

MOV 
ENABL. 



@#CCBHD, CC«! NK<R5) 
R5. @#CCBHD ii 



; ; Put control block on free list 



Enable interrupts 
i Say no longer using this control block 



CLR CURCCB 
Restart any jobs that are waiting for a control block 



003344 000207 



MOV 
CALL 

Finished 

RETURN 



#S*QCCB» RO 
@#UREGO 



i Get wait state code 
.Restart any waiting jobs 
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— Completion of a mapped 1/0 operation 



f-*r*-T*"r! /-*f-*i II— Thi 



3 

4 

5 

6 

7 

8 
o 

10 
11 
12 
13 
14 
15 
16 
17 
IS 
19 
20 
21 
22 
23 



003346 010446 



003350 016504 OOOOOOG 



003354 004767 177670 



003360 004737 OOOOOOG 



003364 012604 
003366 00020/ 



C3jyi I 1 i_ wonr HM wufflf/ i ^ i- l uii ur ea iiiei^peu i r Ij O^I eVtaV X Oil 

CSHFIN is called uhen a cached data transfer is completed. 

Inputs: 
R5 = Address of cache control block. 

CSHFIN: MOV R4, -<SP) 

Get the address of the original I/D queue element 

MOV CC*0QE<R5). R4 ; Get address of original queue element 
Free the cache control blocfi 

CALL CCBFRE i Free the cache control block 

Do I/O completion for the orignal queue element 



CALL 
F i r» :i & h e d 



@#iaCMPL 



j Do I/O completion 



MOV (3P)+, R4 
RETURN 
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CSHGTQ — Get a free I/O queue element 



c 
t 
f 

I 



1 

2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 



. S>Jb ! ! L. 



UishiWIU 



set a free i/u queue eiemenr 



003370 010346 
003372 010446 



003374 016504 OOOOOOG 
003400 004737 OOOOOOG 
003404 010167 174406 



003410 010103 

003412 012700 OOOOOOC 

003416 012423 

003420 077002 



00342J 



152761 OOOOOOC OOOOOOG 



003430 010561 OOOOOOG 



003434 016561 

003442 016561 

003450 016561 

003456 012700 OOOOOOG 

003462 066500 OOOOOOG 

003466 010061 OOOOOOG 



003472 012604 
003474 012603 
003476 000207 



OOOOOOG OOOOOOG 
OOOOOOG OOOOOOG 
OOOOOOG OOOOOOG 



Get a free I/O queue element and initialize it with information from 
the cache control block and the oriainal I/O aueue element. 



Inputs; 
R5 = Pointer to cache control block. 

Outputs : 
Rl = Pointer to new queue element. 



CSHGTQ: MOV 
MOV 



R3> -<SP) 

R4, -<SF ) 



Get a free I/O queue element 

MOV CC*00E(R5),R4 
CALL @#GETO 
MOV Rl, lOQOUT 



; Get address of original queue element 

i Get a free I/O queue element 

> Save address of secondary I/O queue element 



1*; 



Copy information from original queue element to new queue element 

Get address of new queue element 

Get number of words to move 

Copy contents of original queue element 

Set flags in new I/O queue element saying: <1) this is a secondary 
I/O operation for data caching; and, <2) the completion routine is 
a system routine that is to be called in kernel mode. 



MOV 


Rl. R3 


MOV 


#I00SIZ/2, RO 


MOV 


(R4)+, (R3)-i 


SOB 


RO, 1* 



BISB 



#QF«CI0!QF*SCR, Q. FLAG<R1) ; Cashing I/O & system compl rtn 



Store the address of the cache control block into the cell of the 
I/O queue element normally used for the channel number. 
This will cause the address of the cache control block to be passed 
to the completion routine in Rl. 

MOV R5, Q. CHAN(Rl) ; Set address of control block as "channel #" 

Now set up information from the cache control block 



MOV 
MOV 
MOV 
MOV 
ADD 
MOV 

Fini shed 



CC«BLK<R5),0. BLKN<R1) i Set block number 

CC*WCT(R5),Q. WCNT<R1) ; Set word count 

CC*UBP(R5), CJ. PAR<R1 ) i Set 64-byte block number of buffer base 



MOV 

MOV 
RETURN 



#VPAR6, RO 
CC*UB0<R5), RO 
RO, Q. BUFF<R.1 ) 



(SP)+, R4 
(SP)+, R3 



Get virtual address bias of buffer 
Add buffer offset within 64-byte block 
Set buffer virtual address 
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cache usage statistics 



10 

11 
12 
13 

14 003500 

15 003502 
16 

17 
18 

19 003504 

20 003510 

21 003512 
22 

23 

24 

25 

26 003514 

27 

28 

29 

30 003520 

31 003522 



010246 
012102 



060062 
005512 
102002 



00000^ 



004767 000004 



012602 
000201 






• u tr'ack OT caci 



sags statistits 



CSHCNT is called to add a value to one of the cache statistic counters. 
The form of the call is: 



MOV 
JSR 
. WORD 



value* RO 
Rl, CSHCNT 
counter 



; Get value to be added to counter 

j Update counter 

i Address of counter to be augmented 



The counters are ail 32-bits long luith the high-order value stored 

in the first word. 

If a counter overflows, all counters are zeroed. 



CSHCNT: MOV 
MOV 



R2, -(SP) 
<R1)4-, R2 



} Get pointer to statisitcs cells 
Add value to lou-order word and propogate carry to high-order word 



ADD 
ADC 

BVC 



RO, 2(R2) 

<R2) 

9* 



iAdd value to low-order word 

i Propogate carry to high order word 

i Br if counter did not overflow 



A counter overflowed. 

Clear all statistic counters to zero. 



9$: 



CALL 


CSHZRO 


Finished 




MOV 


<SP)+, R2 


RTS 


Rl 



i Zero all statistic counters 
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— Reset all statistic counters to zero 



003524 



003524 005037 OOOOOOG 

003530 005037 0000020 

003534 005037 OOOOOOG 

003540 005037 0000020 

003544 005037 OOOOOOG 

003550 005037 000002G 

003554 005037 OOOOOOG 

003560 005037 000002G 

003564 005037 OOOOOOG 

003570 005037 000002G 

003574 005037 OOOOOOG 

003600 005037 000002G 



003604 000207 



. 3BTTL GSHZRO — Reset aii statistic counters to zero 
Zero all data cache statistic counters. 
CSHZRO: 



Zero all statistic counters 



CLR 


@#CASTRO 


CLR 


@#CASTR0"f-2 


CLR 


@#CAST13R 


CLR 


@#CASTBR+2 


CLR 


@#CASCBR 


CLR 


€#CASCBR+2 


CLR 


@#CASTWO 


CLR 


©#CASTW0+2 


CLR 


@#CASTBW 


CLR 


@#CASTBW+2 


CLR 


e#CASCUP 


CLR 


@#CASCUP+2 


1- i n .1. B h e (1 




RETURN 





; Total number of read operations 

j Total number of blocks read 

jBlocks read from cache 

; Total number of turite operations 

; Total number of blocks written 

> Total number of blocks moved into each* 
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-- See if system job scheduler should be called 



3 
4 
5 
6 

7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
18 



003606 105737 
003612 001402 



OOOOOOG 



003614 004737 OOOOOOG 



003620 000207 



~ See if system job scheduler should be called 

CSHSCH is called periodically during lengthy operations such as moving 
data from cache buffers to/from user buffers to see if the job 
scheduler should be called to give other jobs a chance to run. 
This is done so that the data caching operations don't lock out 
other jobs for an extended period of time. 



CSHSCH: TSTB 



@#DOSCHD 

9* 



J Does the job scheduler need to be called? 

; Br if not 



Call job scheduler and allow higher priority jobs to run 

CALL S#SCHED iCali job scheduler 

Finished 
9«: RETURN 
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CSHINI — Data caching system initialization 



1 
2 
3 
4 
5 

6 003622 010146 

7 003624 010246 

8 003626 013746 0000000 
9 

10 
11 

12 003632 005737 0000000 

13 003636 001437 
14 

15 

16 

17 003640 012701 OOOOOOG 

IS 003644 010137 OOOOOOG 

19 003650 

20 003656 013700 OOOOOOG 

21 003662 005300 

22 003664 003406 

23 003666 010102 

24 003670 062702 000002 

25 003674 010211 

26 003676 010201 

27 003700 077006 

28 003702 005011 
29 

30 
31 

32 003704 005037 OOOOOOG 

33 003710 005037 OOOOOOG 
34 

35 
36 

37 003714 012701 OOOOOOG 

38 003720 013700 OOOOOOG 

39 003724 

40 003732 005021 

41 003734 077002 
42 

43 

44 

45 003736 004767 177562 

46 

47 

48 

49 003742 012637 OOOOOOG 

50 003746 012602 

51 003750 012601 

52 003752 000207 

53 00000.1 
Errors detected: 

*»* Assembler statistics 



. 3BTTL CSHINI — Data caching system initialization 

CSHINI is called during system initialization to initialize the 
data cachino sustem 



CSHINI: MOV 
MOV 
MOV 



R 1 < - < SP ) 
R2. -<SP) 
@#KPAR5, -<SP) 






; Save kernel PARS mapping 
if there sre any active cache buffers 



TST 

BEQ 



@#VCSHNB 

9* 



i Any active cache buffers? 
J B r if not 



Put all data cache entries on the free list 



1*: 



3$: 



MOV 


#VPAR5, Ri 


MOV 


R 1 / @#CSHFHD 


MAP TO 


CA$UFL 


MOV 


e#VCSHNB, RO 


DEC 


RO 


WLE 


3* 


MOV 


PI, R2 


ADD 


#2, R2 


MOV 


R2, <Ri) 


MOV 


R2, Rl 


SOB 


RO, 1* 


CLR 


(Rl) 



Bay LRU chain is empty 



CLR 
CLR 



e#CSHMRU 
@#CSHLRU 



i Get virtual address of 1st entry 

;Set pointer to Ist free entry 

i Map to forward link chain 

; Get total number of data cache entries 

Mr if only 1 entry 

Get address of current entry 

Get address of next entry 

Make current entry point to next enti-y 

Get pointer to next entry 

Loop if more to link together 

Zero the last forward link 



No most-recently-used entry 
No ieast-recently-used entry 



Zero all of the hash list heads 



?*: 



MOV 


#VPAR5, Rl 


MOV 


@#VCSHNB. RO 


MAPTO 


CA*HSH 


CLR 


<R1) + 


SOB 


RO, 2* 



i Get virtual address of 1st entry 
> Get total number of entries 
; Map to hash list heads 
i Zero each one 



Zero all cache statistic counters 



?*: 



CALL 


CSHZRO 


Finished 




MOV 


<SP)+, @#KPAR5 


MOV 


(SP)+, R2 


MOV 


(SP)+, Rl 


RETURN 




. END 





> Zero all statistic counters 



; Restore kernel PARS mapping 
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CSHINI — Data caching system initialization 

Work file reads: 

Work file uirites: 

Size of ujork file: 8610 Words < 34 Pages) 

Size of core pool: 17920 Words ( 70 Pages) 

Operating system: RT-11 

Elapsed time: 00:00:26.09 

DK: TSCASH. LP: TSCASH=DK: TSCASH/C/N: SYM 



TSCASH — TSX-Plus Data Caching MACRO V05. 05 
Cross reference table <CREF V05. 05) 



*NOABT 
. . . V2 



C. CSW 

CA*BLK 

CA*DVU 

CA*HBL 

CA*HFL 

CA*HSH 

CA*UBL 

CA*UFL 

CA*WCT 

CASCBR 

CASCUP 

CASTBR 

CASTBW 

CASTRO 

CASTWQ 

CC«BLK 

CC*CBP 

CC*DVU 

CC*LNK 

CC*OQE 

CC*UBO 

CC*UBP 

CC*WCT 

CC$WFL 

CCBFRE 

CCBOET 

CCBHD 

CD**SZ 

CD*DVU 

CORUSR 

CS*EOF 

CS*ERR 

CSHADD 

CSHBFP 

CSHBLD 

CSHCLN 

CSHCNT 

CSHDEV 

CSHDVN 

CSHFHD 

CSHFIN 

CSHFRE 

CSHOET 

CSHGTQ 

CSHINI 

CSHIO 

CSHLOC 

CSHLRU 



1-36 
4-25 
4-25 
6-16 
6-16# 
9-17 
10-17 

•* '^^ •* "T 

1-26 
1-28 
1-26 

1-.- 'nn 

1-27 
1-28 
1-26 
1-26 
1-26 
1-35 
1-35 
1-35 
1-35 
1-36 
1-36 
1-25 
1-24 
1-25 
1-31 
1-29 
1-25 
1-25 
1-24 
1-25 

21-S# 
2-63 
1-30 
1-29 
1-25 
1-35 
1-27 
1-30 

11-56 
1-30 
4-17 
1-77 
3-15 
1-30 
1-27 
1-33 
1-78 

12-38 

11-36 
4-21 
1-75 
1-76 
3-26 
1-30 



20-31 
4-25 
4-25 
6-16 
6-16# 
9-17 

10-17 

< rt_ i -744. 
X \J A / Tf 

5-16 

11-47 

11-49 

15-51 

13-42 

13-32 

12-25 

14-19 

3-36 

3-53 

8-36 

3-22 

6-34 

3-16 

6-28 

3-62-«?- 

9-26 

11-50 

20-40 

5-14 

9-28 

3-63* 

3-17 

6-21* 

22-16 

20-lS# 

20-24 

19-34 

19-32 

20-30 

5-16 

5-16 

15-7# 

13-53 

6-41 

2-52 

3-21 

19-31 

19-35 

17-14 

3-69 

ia-8# 

17-10# 
6-14 

27-6# 
2-14# 
8-20 

11-42 



20-34 
4-25 
4-25 
6-16 
9-17 
9-17 

10-17 

i r\ -I "744. 

4. W A / Tf 

13-35 
12-27 
15-72 
1 5-49 
15-41 
14-21 
14-26 
8-29 
25 -13 k- 
25-19* 
25-11* 
25-17* 
25-9* 
25-15* 
8-45* 
10-26 
13-31 
20-44* 
20-53* 
10-23 
8-46* 
3-32 
6-49* 



20-40* 



11-10# 
12-9# 

3-- 52 



1 7-20* 



23~12# 



11-18 
12-20 



4-25 
4-25 
6-16 
9-17 
9-17 
10-17 
10-17# 

15-35 
13-39 

I k: o-^ 

15-64 

15-85 

14-32 

14-41 

11-24 

25-14* 

25-20* 

25-12* 

25-18* 

25-10* 

25-16* 

13-54* 
20-6 1 * 
21-12 
ICC""! 2 
20-71* 
9-25 
3-64* 
7-13* 



21-23 



18-8 

6—55 
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4- 


-25 


4-25 


4- 


-25# 


4-25# 


6- 


-16 


6-16 


9- 


-17 


9-17 


9- 


-17 


9-17 


10- 


-17 


10-17 



15-58 

16—46 
15-78 
16-58 
14-38 
15-19 
11-51 



11-48 

20-62* 
21-14 
23-17 
23-47 
10-25 
6-29 



21-24* 



6-33 



18-9* 
7-19 



15-60 

16-65 
15-88 
27-39 
15-16 
15-28 



11-60* 



»1-16 



20-68* 
8-13 



8-35 



27-18* 



4-25 
4-25# 
6-16 
9-17 
9-17# 
10-17 



16-34 



16-44 

1 5-30 
16-15 



21-18 



24~i4# 



4-25 
6-16 
6-16 
9-17 
9-17# 
10-17 



4-25 
6-16 
6-16 
9-17 
9-17# 
10-17 



4-25 
6-16 
6-16 
9-17 
10-17 
10-17 



4-25 
6-16 
6-16 
9-17 
10-17 
10-17 



4-25 
6-16 
6-16# 
9-17 
10-17 
10-17 



16-52 

16-17 
16-22 



16-28 
17-19 



18-10 



>7-19 



11-70* 13-22 



13-30 



20-54* 23-43 



21-18* 21-23* 



23-45 
8-47* 9-33 10-33 11-13 20-58* 23-44 



c 
i 
« 
i 
I 
i 
i 
< 

€ 

C 

i 
< 

i 



13- 
14- 



17# 

30* 



f 
i 



1 5-27* 



16-26* 



27-33* 





TSCASH 


— TSX-Pl 


us Data Cac 


hing MACRO 


V05. 05 


Tuesday 17- 


-Jan-89 14: 


12 Page S- 


-2 
















Cross reference 


table <CREF 


V05. 05) 




























CSHMRU 
CSHRD 


1-2S 
2-72 


14-14 
3-9# 


14-24* 


14-37 


14=43* 


15-14 


15-21* 


15-26* 


16=20* 


27- 


-32* 












CSHREM 


11-43 


12-34 


16-9# 




























CSHSCH 
CSHTST 
CSHUP 


3-58 
2-30 

5-21 


8-41 

19-12# 

6-45 


26-9# 
8-8# 




























CSHUSE 
CSHWRT 
CSHZRO 


3-47 

2-78 

24-26 


11-30 

6-10# 
25-5# 


14-9# 
27-45 




























CURCCB 

DOSCHD 

DVFLAG 

DX*NCA 

ENSYS 

FP«MOV 

GETQ 

INTPRI 

lOCMPL 

lOQIN 

lOQOUT 

IDQSIZ 

JOBCCB 


l-82# 

1-34 

1-36 

1-36 

1-27 

1-32 

1-34 

1-33 

1-32 

l-83# 

l-84# 

1-32 

1-33 


20-51* 
26-9 
19-25 
19-25 
9-18 
9-19 
23-18 
20-47 
22-20 
20-52* 
5-29* 
23-24 
20-44 


21-26* 

10-18 
10-19 

21-25 

7-23* 
20-45* 


23-19* 
21-12 


























KPAR5 


1-27 


2-16 


2-88* 


3-36* 


B-29* 


9-25* 


10-25* 


11-24* 


11-47* 


11- 


-49* 


11- 


-51* 


12- 


-11 






12-25* 


12-27* 


12-47* 


1 3-32* 


13-35* 


13-39* 


13- -12* 


14-19* 


14-21* 


14- 


-26* 


14- 


-32* 


14- 


-38* 






14-41* 


15-16* 


15-19* 


1 5-28* 


1 5-30* 


15-35* 


15-41* 


15-49* 


15-51* 


15- 


-58* 


15- 


-60* 


15- 


-64* 






15-72* 


1 5-7B* 


1 5-80* 


15-85* 


15-88* 


16-15* 


16-17* 


16-22* 


16-28* 


16- 


-34* 


16- 


-44* 


16- 


-46* 






16-52* 


16-58* 


16-65* 


17-19* 


18-10* 


27-8 


27-19* 


27-39* 


27-49* 
















KPAR6 


1-28 


9-26* 


10-26* 




























LSW9 


1-36 


20-31* 


20-34* 




























NPCCB 


1-33 


20-46* 


21-19* 




























OVRHC 


1-24 
































PSW 


1-33 


20-23* 


20-47* 


21-13* 


21-25* 
























Q. BLKN 


1-31 


20-54 


23-43* 




























Q. BUFF 


1-31 


20-63 


23-48* 




























Q. CHAN 


1-32 


2-25 


23-39* 




























Q. COMP 


1-24 


4-26* 


6-17* 




























Q. CSW 


1-24 


5-15 






























Q. DEVX 


1-28 


2-50 


19-20 


20-62 


























Q. FLAG 


1-34 


2-21 


23-32* 


























Q. FUNC 


1-24 


2-41 






























Q. JOB 


1-29 


2-23 






























Q. PAR 


1-31 


20-67 


23-45* 




























Q. UNIT 
Q. WCNT 


1-26 
1-27 


2-47 
2-58 


19-17 
2-67 


20-59 
6-15* 


20-55 


23-44* 






















QF*CIO 


1-34 


2-21 


23-32 


























QF*SCR 


1-34 


23-32 






























QNBPNX 


1-31 


20-33 






























RDMOVE 


3-42 


9-9# 






























READ 10 

REDCPL 

S*QCCB 

SCHED 

SYQIO 


3-75 
4-25 
1-30 
1-34 
1-29 


4-12# 

4-25 

20-32 

26-14 

4-30 


5-S# 
21-30 

6-22 




























TSCASH 


1-20 


1-71# 


1-75 


1 -76 


1-77 


1-78 




















UREGO 


1-32 


21-31 






























USWPCH 


1-32 


2-25 
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Cross reference table <CREF V05. 05) 



yCSHNB 


i-33 


2-35 


12-15 


13-24 


15-38 


16-37 


27-12 


VPAR5 


1-29 


9-27 


10-27 


13-26 


13-51 


15-40 


16-39 


VPAR6 


1-29 


9-29 


10-29 


20-64 


23-46 






WRTCPL 


6-16 


6-16 


7-8# 










WTMOVE 


8-25 


10-9# 













27-20 27-3B 
27-17 27-37 



I 

I 

( 
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Cross reference table <CREF V05. 05) 



. ADDR 


1-16# 


4-25 


6-16 


9-17 


10-17 


















DISABL 


l-46# 


20-23 


21-13 






















ENABL 


l-52# 


20-47 


21-25 






















MAP TO 


l-40# 


3-36 


8-29 


1 1 -24 


11-47 


11-49 


11-51 


12-25 


12-27 


13-32 


13-35 


13- 


-39 




13-42 


14-19 


14-21 


14-26 


14-32 


14-38 


14-41 


15-16 


15-19 


15-28 


15-30 


15- 


-35 




15-41 


15-49 


15-51 


15-58 


15-60 


15-64 


15-72 


15-78 


15-80 


15-85 


15-es 


16- 


-15 




16-17 


16-22 


16-28 


16-34 


16-44 


16-46 


16-52 


16-58 


16-65 


17-19 


18-10 


27- 


-19 




27-39 


























OCALL 


1~58# 
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